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^£^££#<^s£il^Ti-& 0 mr> c g i 0 s 3^i:io\^Mii 

9 Ciot^f?^ c g i o s 3«^TO«l6«rKWr*o 
[0 0 3 4] 

tzT-?yu~-m~?$>&o 
[0 0 3 5] 

T3Sfit*HTMLJt4:«Fj|t*fcii>t:fflv>?,^^-ejfe« 0 
«^ttHTMLA»0#^*ffd^*K:SWk«*Mv*«ifcfc tTfe^ HTML 
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ilOHTMLJt^n o ) Sr^-f^o 
[0 0 3 6] 

gR9fi, *10HTMLXt«SiiP|«fC, -fe^va^ffi, ^kSXr- 
y ?m 1 0 fcfB* (Si) U Sfcfc, flOHTML^:^7^f 

[0 0 3 7] 

*i * fc , ^l<7)HTML3i:W7^r> h 7<7)^o:-7*7*9^^1iJM±H^^ 
ft&o ^7^fT>b7{i, il^HTMLit^7t-At:toTf-^ ( 

v$mmt*Mmmm.t Lx^—^nzMm-r^> 0 twqo c g i OS 

3(i, y ^ 3 >mRmim.mzm^^X ^ y 4 T > hSlfHTMLXt©^ 
RLti, JR5IH^-^URL«ltnio iO^JCfev^T. -fr- /tl»± % & 

[0 0 3 8] 
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[0 0 3 9] 

ic N iB'it^i otciait$tLT^/i^yi/3 >m%.v*$mM*mfrmLx^ m^-it 
$ frfc* ? v 3 ^^wsLifcia^ leitSB i o mencs ttrv^-t >7 v 3 >m%. 

tfa&tefcJfctfc-tao iW»S5 9ti, 8Wb$ titz*. y v 3 ><fit£ffiHcS& 1 0 Kffi 

9>f T> h igfctitfRSriM Liz? ? 4 T> h t^IWI— ?7JT> t 

h * *> © fiJBf LT^g LfcigflMf o 
[0 0 4 0] 

ft&tt tilOHTMLtt^fUil £SB«g& 1 0 fcf $ tLtzftMiM t 

^m— x&zfr&frZitwtL^ ^mm^m— -c&zmitw** iiohtml^ 
xtemztLfzi><7>x$>2>tmML, atf#i^i»i^(:i±iioHTMLtt 

[0 0 4 1] 

* y v 3 >ffiRVaSfefl[*Jfctti-* i £ i o t, 9 ^ t/:lfl 

«Mfto*# 1 ©HTML 7 * - A &-cf < ig#fl|^t?* <2> <h$!JKff L 7»£- 

45^W3e3KiflMRk, ^fI'li$fc<?M >*«<o;U!j7»-*<0fS^:£B1f$ft£: 

^ > > ^^xm^h^hw^^m-^nLxr-^tmrnm^ir 
wy^zm^ibtLZJ >x*>x<D* >s*$m.v>ffi&m mm^r-* tens k 
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.<D'ik(D$m\zmmzftz>o lensm oKigitstLTv^ifc^Bt-ifcL&vvA 
ixf^yj x*$mfi t %rT Lx\t*&fr&mm u #j»r $ turn* t y -fo&o 

lumxTy?, ^t^m2<D*imXTyy<Dt!!kW.Zmf1-2>o 
[0 0 4 2 J 

•/Clv^tL&HTMLi* (mT, H2^)HTMLtiit-i. 0 ) 

o *<0^ ffiJ#Pg& 9 &2<0 HTML t £#4>(fe<7)SL 

4t l ti 2 o h t m l ^#tcftini- £ o 

[0 0 4 3] 

ftU $$>K, 0 2OHTML^C#cOii>ff tlWIBtlC, y 3 ><g. m&M, «k 
n^?A&oi£5&E§1ff#*fBttm 0K?B« GUI) LT. il^M^fy 
[0 0 4 4] 

ffi* i mt^i ^i/^^t^ot, whuis $ tut* y v a t fan 
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ffil 0 ^Ltf 1 OHTMLtt^SS^ 7 > > 7 }:itt-S 0 WBtm 1 
OHTMLtflrlftt^f^i;, fflUPSB 9 fi, f B«S& 1 0 KSEHStiTv^fiL 

[0 0 4 5] 

z>$mxTyy$:m<kmftL. -m<Dfem<D&t> *) 1 ooT-*-*iBHigi$ 

[0 0 4 6] 
[0 0 4 7] 

Hi 4 ~H 7 UttiM^fttfel £ tt & $lfr 7n ^ ^ A £?rc 1 ^ ? A 
V^hTNfciK HI4i4J* h'J-Ara^A, |H5, 6fi> ftilH<7)&tt:i 

[0 0 4 8] 
[0 0 4 9] 
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[0 0 5 0] 

wq*t,^5>fT> h 7tw^$tL* 0 mi 0 RZfm 1 1 

o xti $ tL^miPicftoflBH** 2 si^Tt^ & *tfe3SE-r « -x 9 -trntm 

[0 0 5 1] 
[0 0 5 2] 

<b & ms* t- y y -c£ , c omm ? tz*b iz * t y -? 3 x*mm ztitz 
&xftm t &.-xmm&3ET Ltzwtt ^m^-r & mx^imm uai\ ^ci 

-^->?c 1 tzmm-rzmmm&x'&Zo 

[0 0 5 3] 

tfz, M7 (a) ^If^n^yAfi, ^-i?MOHTMLJt*Mt 
&fc#<Z>^-^5eil*^L;fc&0^2>!K (b) ^L^yn^^Ati, -^*-v 
B lOHTMLtt^Mn^O^^i^L^icot'l)^ (c) K 
TFLtz-fusfyAlt, ^-y'C 1 OHTML5:#*rftJfi-f *^:ie>o^— ^j^|«r 
7jHLtzi><DT*$>2>o M7 (a) ~ (c) t:^L^7 s n^7Ali, HTML (Hype 
rText Markup Language) -efB^£*lT:j3 »), <h3 >~</h 3 X3H TML 

xm<owmm±\z&m\^*u^z^&tz&<n9 rx*$>z>o ttz, < input type 

-submit action="next" label="^">{i, f^xJ fc*^*Lfc^f^ >£^7F 
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^Hf$Hi:LT" next" i: M *) 1 Kig>f§£ K2> 0 <#slot>fi, J* 

[0 0 5 4] 

05, 6 KTjiLfz? 7X£|7"D/7A^no ^^^7^iyn7*7 

i7"D7*7A K: jSV^Tte, package OysterOrder; Kj^Z ti& X o ^OysterOrder 
[0 0 5 5] 

* *7 ffy A #BEGIN#DECLARE~#END#DECLARE-e$fet fifz^X^ 

£ fttzWrnM U<DT~? -KmU p 1 sub ~ 1 ~~ } X^^fifz^m^ 
Up 2~p 7 tT*Sj£S*LTV*& 0 
[0 0 5 6] 

tifz^y/^mztt&lr&mfc^BtfT-f^-XKftj&Zti&o z<Dtztb, ? 
y^m^^V^Aiz^x^y/^mm^^^m^t^iz^Kli, ?v 

[0 0 5 7] 
[0 0 5 8] 
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o 

[0 0 5 9] 

tt$SO|g^co|g^3- FiXJj't&li.itXD'f Ibran 
d} fcg#|g&^K£*ilrt*ftA$*L, H^n- K«rA*-r*7t*0^ > 
> Irec ipel £ 1 *«ft A £ SBHfcJR- 3 - K £ A# Th * 

Itrimming} C V* >0**^tR3li 2 WAS^ 1IM 
Icommentf tf^m^mfcZtl&o 

[0 0 6 0] 

i8C^t^*HTMLtt (^Al) m$*L-S. c g i o s 

3 (D^m-^t-o xmmu 9 »±, $ ^ a 1 kheo r * 9 ^ r > h 7 ?&* 
a 1 ^*^-ctt«goi&flgott^oA*T'-^ 2 o<DWtfc*'ifoxfrb, mm 

x is^g g a^7 t»- * *Mmm t tt * a# -r- * ^ g i&w »:iif 

UltSL ft v^^jc li jftBfll i A* 7* — * * o 

[0 0 6 1] 
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&&*tix&y) s zbizmmui 0Ki>mvm=*- Kfcw*?-*Rj&HBa*iBit 

[0 0 6 2] 

4 k isif & mxgrrmmom-ftv h t m l jcw zftfo-t & m^m ti %> 0 

[0 0 6 3] 
[0 0 6 4] 

04{:^t^fV-Ayn^5Ali, top. first, second, third, fourths 5 

°^i^t y 7fc£vxm&.ztixs$t)^ ^(o^m^y-yf<DmW)K tern* 

t- y 7T»*ftfc LTffi1fg& 1 0 tcfaif £*l& 0 
[0 0 6 5] 

^Tustream input#order($o) [ # &:£A27* h V - A jKjS^T. d 

[0 0 6 6] 

top:$o = new <APP>::0yster0rder($S); 

i ») . new^S^ p 2 ) ^Hff $ *i& £ J: o TOysterOrdert? 

^V^^&j&Sft&o £*>l~. $o->default;£J:oT&Si^-default 
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[0 0 6 7] 

stream input#order($ol, $o2) [ # fe^tAlfr^ h V — A 
top: 

$ol = new <APP>::0yster0rder($S); 
$ol->default; 

$o2 = new <APP>: :0yster0rder($S) ; 
$o2->default; 

[0 0 6 8] 

%.<D®m*T y -/first"?!!, M7 (a) K^Lfc^-^5fe&£5pJJB LT\ El 
8tC^^~^A 1 T&sf^cSft&o lit, $V->[SL0T] = [ slot => $o->input 
];tmWlZtlX\<*2>Z£frb^ HI 7 (a) <D<#slot><D? rvUfrfc, 4>X 
?>Mo(D input (&mfa^U p 5 ) «t o Tffr& £ * ~7 * 

£5KLT^f$*l£ 0 y ^first^n^-A 

vaV-IS, SL^tiii, jKlXT^jfl (i;TB^7? ^firstT^^i* 
Oif m.) ^IBIt $ £ 1 i> K „ input Xmfrfr v> TIM £ Bb&E g fit 

*u jMW&Kii. &m<D&ffi^ Qtmom-mxm, mx-zmmfr, 

if ($V->[action] eq "next") [ goto second; ] 
goto first; 

t> ^ h V-&7ur7&\z&tf2>$i<D®M*7-y ysecondl'flJW 9 O^S^ 
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[0 0 6 9] 

^- v*A 1 <D T^J >2 1^ V y ? £ ft* tM^T7 ^secon 

9 14. £«fl| Hr/a >«Xt^SL»:ffi^ffi $ v^J^Xlf-fe y -> a > 
£ fBttSP 1 0 iclfilt $ -feyya^iffl-t*^ ^ 4&m £ *l& a^cffi £ IB 

$ iktii&Ks v> HTML :$C#K^c?v> TaSfllflMI***'© $ *L/i 

o t mm -t %> z. t &v i * o s^html jcmzm^xmnmmmm $ *t7t 

& O fc$JftT$ ffllW 9 l±S»I^ T y 7f irst^3g=SrHff U Ife 

ffi $ *Lfc-te y v 3 >«rai&#^fE1f 1 0 KffiHi £ *L& -b y v a VfcRtfS 

^Oj&S* -r y 7*secondK#LS£#fi 1 0 
[0 0 7 0] 

^CO^a^ t- y y S econd"t?(4, ^-yB fcf&S-f iftlftlffi 9 jg^ffi^O 

[0 0 7 1] 

if ($o-> [ERROR] = $o->check) [ goto first; ] 
KioT, >f >^$o^)check^S^ (M^^p 6) O^aa^Uff 

firstKMoT. HI 2 K^-J: ? K^7-^£^tc£-£& 0 
[0 0 7 2] 

7 ^secondK&^T. HlPM^*® 8 KTFi-t X o K 1 
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X^^^Kit, m7 (b) iZT^Lfz^-^m^mmLX, ilO^U: 

^- v b i amfc z 0 $ 19 i^i:, pi**i-<z>s*w* 2 as&T 

[0 0 7 3] 

p7) O&S^ISfr StU fomXT v -/firsts 33 ^-CtEMIW^ t LX? y4 7 
B 1 KjS^Tfi. ^-^A 1 hlot r^^lfTj rn£j #?>t 

[0 0 7 4] 

%.(D$km*T y ythirdt?(i, * >*$oKJBv*e>*L;& ^ W^lfc lorid} 

L Tnextor idgfc&lfr^ (*im$T^U p 3 ) * ^£ff 1" ^iH:ioty-^> 
*#^*rffcAU $$S[DA]->save0bject($o);tcj: 19, v-^ >*#^>UJ £*l 
lorid} ^^-hUr^^^lo «|@|OAAf- 
1 1 fcSB«$*L& 0 
[0 0 7 5] 

•eot, HSM^'T * T^fourthKilA,"^ IH 7 (c) K^LT^-v^^fU 
fflLT, mi 3 i:/TL/;^yC l>^fPJ&£*L&o MXr y ^fourthHJ: !) — 

[0 0 7 6] 

jtgt&;E)o zKDtztb^ —m<omnmm^miz.m.^x^iofi^^^^y^r 
^#^,■9--^ 1 — mo^p^a^a^js^om^f^tLS «t d -9— 
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'*7 K&mtZUTML$:W<Dm7Fft&ZmffltZ>Zti!>*X-£, -9— 
[0 0 7 7] 

[0 0 7 8] 

«\ c g i o s 3 0»jFfcJ: *K SftflMRCg- 
£ £ A# 7*- * <D ISSfeg a i£M L/tHTMLtf^A^] 

A# TJft&fcKjc^B 0«« WJE&i-* & 9 ^J®f 

LT> A^-f-^OISSg^B fciait$*tfc*»R5t^l fca*#*fc*#£-tett-£-tf>A 

o 

[0 0 7 9] 

^I«'!f#^^tL^A^JT ? ~^^®iE^7 : -*-^T^^ 

[0 0 8 0] 
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[0 0 8 1] 

4&<D?7Xfem-7uy7&Rzfx y y - a ^7 Af if -5 c t ^ < , ^ 
^t^fgt^^o c g i o s 3-efi. ra— ^. h 1; -A^n^Alc^ 

-c*>, c g i o s 37b*?7x<D* y**y*<DWL^M%m^ 
m-fz><Dx, -fur Yv-&K&^xmmzti&j>/^$k<DmfeM 

[0 0 8 2] 

i;-A*7°n^9A^^v^T{i, $olt$o2t<7>2o£>-f ^ >x C: 
tlcioT. OysterOrder? 7>U^£ffl£*L£^ y '^W&WLliM^^T- *? 
$olt$o2t^?>^^mSiJ : f- : S:ffiv^T'ett^^!ESiJU SU* KfSlirt&o tf 

•a.-D&^^T^h 7H^M1"^^^^, XJjy*-&K$5W2>'( y**y 
-0^^>^$ol<^A^7*~^0|g^i (tt«5<?5#&*!, 4fc*OP3El 
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[0 0 8 3] 
[0 0 8 4] 

c g i o s 3(±. — i£<D&n%m<n%Ltl*7F-tX V 'J-A^D^Ai 
„ h U-A-Zn^^A-c-jeffl^tL*^ >A9>x<D* >^3B8cfc > 

n^7A £ff 9 o -e, ^tOHTML fi HUT? £> o t 

^^r^ h U-At/n^AfciSV^Iffi-*- -SI^HTMLJ 
#lc#Ai-^ «t 9 K LTIA 59 tt»t & i **pTI6 t * & £4t#*A# 7 * - A 

7A^^x h ';-Ayn/7AW(iitci: i>vSM"e$>2>?z*b^ ±3&<9tt 

-mtm* h y -a fcofrm u £<3^— Rf&ft* h v -ak^T'T * > 
&—nw&m-rz>-jjm*jBmirz> ^ctot, h tml k & it & m—m, <o 

Microsoft excel (£@%£Q t^tt-l^t:^ 9 *m?HrZ> i 
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[0 0 8 5] 

A^Ii£<WPte. l$Wt:^7-f T> b 7 0gt*Kgfcib*vcv>;z><7)T% -9— 
lMitl.MO^^ > m^t&^&V^^£>o£ 0 c g i o s 

[0 0 8 61 
[0 0 8 7] 

01 5K7f:1-£ J )%3'D<Dy 4 > Flrtt^HTMLJt^c g i o s 3XW 

^i^fflv^^f^ 0 £i% Hi 6 (a) b 'J-A/n^ 

7A<7)p#fork ("~", "A/", "this") <£>" this "^Of^^ttv^) 1 
6 (b) ^t^^K^f'J-Ayn^A^U p#wait () «t 19 

[0 0 8 8] 
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.Zti&b^ Ml 7 (a) IZtf Lfc'*- v^a^fflv^ h itfzm 1 5 I^tT" X 9 & 3 
o<z>-> ^ > K^J&£*u u©-) > K (D "menu"£G:fr ic&v^T tH 16 ( c) \zm 
-f^-^-* h -AT'n^A^Hfi^ft&o 
[0 0 8 9] 

p*-^-* h 'j -A^n^Atf^T $*LT, »yM > K<£>" menu" gfrfrKHI 1 
7 (b) K^L/c^-i^^^—^-^^^tL, ^ ^^-^^tc^v^T 

h V-A-Zn^Atf^ff ^ttr, mi 8 ^"TJ; 9 l-*fc!lifl-ao^ 

1 0 .0 9 0 ] 

[0 0 9 1] 

m^iS^Xit, c g i 0 s 3&0S±XW)< $ V)\"y^TX$>& i><Dt Lxmw 
o T y°V Sr-i/By (Mx.f£Apache^) iCiS^TH^T 
YV^T (%m7°V?7&) X$>-?Xi>&^ 0 £ cgio 
s 3 gP^V-ya Vy^fAt^^t, t^Wya >yXfAi:^t 
cgio s#^<7)«^^$^7t^^)T^or^S:V^ 
[0 0 9 2] 
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[0 0 9 3] 
[0 0 9 4] 

mm ^mm-t a>mm t%z> 0 
mi] 

^mmzm&y— ^<7>v y F>)x7»gU;^D v ?mxh%> 0 

[0 2] 
[03] 

u-mx%>& 0 

[04] 

X h%7FLfzmx&2> 0 
[05] 

TFLtzgi i <Dm~e$>& 0 

[06] 
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IEI7] 

&mPcm<7>&x%m Km v»s> ft %> h t m l *? t m -e & & 0 

[HI 8] 

7^2 tC^V^T^ffl £ ft& H TMLtt^H 

[IH9] 

[mi o] 

[HI 1 1 ] 

tti^I©fttfelO X r- >y y 3 is ^tL-SHTML :$C#<D^®M 

[Ell 2] 

[013] 

ttiftiO^iaiO^f 7 -7° 5 Ki3V»T«ffl £ti%> H TMLtf^I® 
[014] 

[mi 5] 
[mi 6] 
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[017] 

[Ell 8] 
[019] 

^i^-^t^^^T^htoW^^lt^^i y fit « ©i^M * ^ L 
[02 0] 

[02 1] 

* * -7'r 7° u - v a > *r * 1 * 9 r > h t o ran & tt & is n D p os&a&s 

[02 2] 

^/T^J^-ya >"9— LT* 9 •< T > h tf&mm.<r>Wfr\z. } && 
[02 3] 

L 4 -5 t fcig-e* * o 

[02 4] 

^x777 , U^-y3>t-/«Uf=0^7^7>h^t7 , -^5:I 
1, 3 3, 3 4 — ^ 

2 t^i/-fr/mtA 

3 cgios (J|y7fyx7,5i7n^A) 

4 77 , Jt-ya>V7h')x7 
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usiream input_order($o) { # &JCKti^ h V — -A 
top: 

$o = new <APP>::OysterOrder($S); 
$o->default; 

first: 

page(input_order.page) { 

$V->{SLOT} = { slot => $o->input }; 

} 

if ($V->{action} eq 'hexf) { goto second; } 
goto first 

second: 

if ($o->{ERROR} = $o->check) { goto first; } 
page(print_order_conf.page) { 
$V->{SLOT} = { slot => $o->print }; 

} 

if {$V->{action} eq •badO { goto first; } 
elsif ($V->{action) eq "nexl") { goto third; } 
goto second; 

third: . 

$o->{orid} = $o->nextprid; 
$$S{DA^aveObject($o); 

fourth: 

page(print_order_done.page) { 
$V->{SLOT} = { slot => $o->print }; 

} 

if ($V->{action} eq "nexf) { goto first; } 
goto fourth; 
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# mmmcoQjt&mktz ? k *>>s<gmmim <member> -e&s. 

package OysterOrden 



#BEGIN_DECLARE 

$data = 'bridint, 
brand int, 
recipe int. 
Irimrning int, 
comment text, 
primary key(orid)"; 



$seqs = "1seq_orid:orid:1 ,"; 

$defo = 'brand => OysterType, recipe => Rea'peType, trimming => TrimmingType"; 

#END_DECLARE 

use strict 

subnew{# Wmm£S&r7*J^? h<p=i>-x h??-? 
my($type.$S,%hash) = @_; 
my %h = { "5" => $S, 'SELF' => "OysterOrder". %hash); 
return bless ¥%h. "<APP>:.OysterOrder"; 

} 

sub nextarid { # ORID 

my($V) = @_- my$S = $V->{S}; 

my($orid) = $$spAJ->getrowf 'select next/alfseq_orid')"); 
$orid; 

} 

sub default { # f7t/i< MSSrfc v \- 
my($V) = @j my $S = $V->{S}; 
$V->{brand}=l;# imm 
$V->{recipe}=l;# 
$V->{trimming} = 2;# i^exDfr 
$V->{comment}="'; 
delete $V->{orid}; 

} 
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sub input {# ¥£$0<£)73r*— A "\ 

my($V) = @_jmy$S = $V->{S}; 

print_webform{ # A 
'<table> 

<ifdef ERRORxspan dass=eno><!ERRORx/span></ifdefi> 
<ft><fd>tt*i<^gffi</tdxtd> 

<input type=select name=brand value=$brand choice= [OysterType]x/td></1r> 
<ii><td>*bK5<oTO*«</td><td> 

<input 1ype=select name=recipe value=$recfpe choice=[RecipeType]x/tdx/fr> 
<irxtd>^^.5|l*^</tdxtd> 

■d'nput type=TrimmingType name=Mmming value=$trimmingx/td></tr> 
<tpxtd>=^ >" h</tdxfct> 

<fnput iype=fexf name=comment value=$comment sfce=60x/tdx/1r> 
</tab!e>'); 

} j 
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sub check { 

my($V) =-@_j my $S = $V->{S}; 

my $count = 0; 

my $value = $V->{Wmming}; 

while ($value>0) { $count += $va!ue & 1 ; $value »= 1; } 

my$enror="'; 

if($count>=3){ 

} 

$erron 
} " 

sub print {# ^(DmMLM&X'tDlfm 

my($V) = @_j my $S = $V->{S}; 

print_webtext( # &X<D HTML M^reco^S 
'<table> 

<tixtd>M<^ffi</td><tdx%brand></tdx/ti> 
<tr><t<^4±^^isa*^/td><tdx%recipex/tdx/tr> 
<ti><td>8sx. 5|^^|</tdxtdx%frimmingx/tdx/fr> 
<1ixtd>=i^ y h</tdxtdx%comment></tdx/tr> 

</table>'); 

} 
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[H7] 

(a) < j^^A^^^^^v:/nriain/input_order.page> 

<h3>$t!^©#gffi • LT<fc$V x/h3> 

<#sloi> 

<br> 

<input fype=submit action="nexl" label-^-^-V 

(b> <Sdt§rfi^i~^'<— ^/main/print_order_conf.page> 

<h3>m&C£Tim<td^\ </h3> 

<#sloi> 

<br> 

<input lype=submit action="nexl" \abe\="j£JcmT"> 
<input type=submit action- back: 1 label-'MS'^ 

( c ) <&X<D?cT ; Sral^^5^^i>/main/print_order_done.page > 

<h2>MT<vm£X&k *> * Uc</h3> 

<#slot> 

<br> 

<input type=submit action="nexf' labeI="||#tf;iMS"> 
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[HI 7] 

(a) <®Sb^ b y — A:/init^tream> 
ustream init() { # h V — A 
loop: 

p_forfc("!>-i' >- K!>^- h y-A'V'/main/init^fream'Vfhis"); 

p_wa'rt(); 

goto loop; 



( b ) < is K^^Kj^ h P — A:/main/init^ream > 
ustream init{) {# ^-r^K^MJ —A 
loop: 

p_setPage("top.page"); 
pjorkfy^a.— M ;'menu.siream","menu"); 
p_wart(); 
goto loop; 



( c ) < ^ —p.—?. h ]) — A:/main/menu5tream > 
ustream menu() {# ^ V V ^-A 
first: 

page(menu.page) { 
} 

if ($V->{action}eq'1nput_ordeO{ 

pJorkf^aX^'VinpuLordersfream'V'AvieW'); 
} elsif ($V->{action} eq 'lisfj { 

pjorkf^t— ^^VTist.stream'V'Amain"); 

} 

goto first; 
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[Ell 8] 

( a ) < h y 7*7 w-A(^|ii»D}:/main/top.page> 

<table width=100% height=100% bgcolor=#ffffff borderO cellspadng=2 
ce!lpaddng=Ostyle= , 'tab!&tayoutfi><ecr> 
<tr> 

<td width=143 valign=top align=!eft class=waUpaper> 
<djvstyle^bverflow:auto'^#menu></div></td> 

<td valign=top class=wallpaper> 

<dV sMe-'overflow:auto'><#view></div></td> 
</1r> 
<fr> 

<td colspan=2 height=70% valign=top class=wallpaper> 
<d^sfyl^= , bverflowauto'^<#main></div></td> 
</tr> 

</table> 



(b) <?~^-^<— v ? (l^iiAB):/main/menu.page> 
<h3>^ 4 is* ^a— </h3> 
<tablexfrxtd vafign=top> 

<table dass=inner bgcolor=#ffffff border-color=#000000 border=2 
cellspacing=0 cel!padding=l 0> 
<frxtd valign=top> 

<li><a hffe^bcfion3npLrtjorde^^a3tA^J</a> 
<lixa hre^"actionJisft>)teS:— |^^</a> 
</tdx/1i> 
</table> 
</tdx/1i></tabte> 
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